Pro One: Netcracker Netscape Navigator/ProOne: Netcracker Netscape Navigator.iso/pc/nc/nc_mm005.geo/00027_GENERAL BTNS.ls

Text File | 1997-03-19 | 11.0 KB | 403 lines

on startMovie
  global WasIn_MM010, WasIN_MM020, WasIN_MM030, WasIN_MM040
  set WasIn_MM010 to 1
  set WasIN_MM020 to 1
  set WasIN_MM030 to 1
  set WasIN_MM040 to 1
  LoadIndexData()
  set the textHeight of field "NamesList" to 14
  initSpriteNums()
end

on LoadIndexData
  global HDfilePath, CDfilePath, PCDEL, IndexPointer, IndexList, NumOfUsers
  if objectp(IndexPointer) then
    IndexPointer(mdispose)
  end if
  set IndexPointer to FileIO(mnew, "read", HDfilePath & "index.txt")
  if objectp(IndexPointer) then
    set IndexData to IndexPointer(mReadFile)
    if objectp(IndexPointer) then
      IndexPointer(mdispose)
    end if
    set save to the itemDelimiter
    set the itemDelimiter to "@"
    put item 1 of IndexData into field "complete"
    if line 1 of field "complete" = EMPTY then
      delete line 1 of field "complete"
    end if
    set IndexList to value(string(item 2 of IndexData))
    set NumOfUsers to value(item 3 of IndexData)
    set the itemDelimiter to save
  else
    set NumOfUsers to 0
    put " " into field "complete"
    set IndexList to [#null_l: "xx"]
    if objectp(IndexPointer) then
      IndexPointer(mdispose)
    end if
    set save to the itemDelimiter
    set the itemDelimiter to "@"
    put field "complete" into item 1 of theInfo
    put IndexList into item 2 of theInfo
    put NumOfUsers into item 3 of theInfo
    set the itemDelimiter to save
    if objectp(IndexPointer) then
      IndexPointer(mdispose)
    end if
    set IndexData to string(theInfo)
    set IndexPointer to FileIO(mnew, "write", HDfilePath & "index.txt")
    IndexPointer(mWriteString, IndexData)
    if objectp(IndexPointer) then
      IndexPointer(mdispose)
    end if
  end if
end

on LoadUSERData
  global HDfilePath, CDfilePath, PCDEL, FilePointer, CurrentFile, IndexList, NumOfUsers, IndexPointer, WasIn_MM010, WasIN_MM020, WasIN_MM030, WasIN_MM040
  set_UserProp()
  if get_UserExist(get_UserName()) then
    set fileName to getaProp(IndexList, value("#" & get_UserProp()))
    UpdateUserGlobals(fileName)
  else
    set WasIn_MM010 to 0
    set WasIN_MM020 to 0
    set WasIN_MM030 to 0
    set WasIN_MM040 to 0
    if field "complete" = " " then
      put get_UserName() into line the number of lines in field "complete" of field "complete"
    else
      put get_UserName() into line the number of lines in field "complete" + 1 of field "complete"
    end if
    set NumOfUsers to 1 + NumOfUsers
    setaProp(IndexList, value("#" & get_UserProp()), "TT" & NumOfUsers)
    set CurrentFile to "TT" & NumOfUsers
    set save to the itemDelimiter
    set the itemDelimiter to "@"
    put field "complete" into item 1 of theInfo
    put IndexList into item 2 of theInfo
    put NumOfUsers into item 3 of theInfo
    set the itemDelimiter to save
    if objectp(IndexPointer) then
      IndexPointer(mdispose)
    end if
    set IndexData to string(theInfo)
    set IndexPointer to FileIO(mnew, "write", HDfilePath & "index.txt")
    IndexPointer(mWriteString, IndexData)
    if objectp(IndexPointer) then
      IndexPointer(mdispose)
    end if
    SaveToFile()
  end if
end

on get_UserExist theUser
  set i to 1
  set Found to 0
  repeat while not Found and (i <= the number of lines in field "complete")
    if line i of field "complete" = theUser then
      set Found to 1
      next repeat
    end if
    set i to i + 1
  end repeat
  return Found
end

on UpdateUserGlobals theFile
  global HDfilePath, CDfilePath, PCDEL, FilePointer, CurrentFile, TAGS_DATA, TAGS_TITLES, TAGS_LIST, NotePadText, ScoreByTasksList
  set CurrentFile to theFile
  if objectp(FilePointer) then
    FilePointer(mdispose)
  end if
  set FilePointer to FileIO(mnew, "read", HDfilePath & CurrentFile & ".txt")
  set UserData to FilePointer(mReadFile)
  if objectp(FilePointer) then
    FilePointer(mdispose)
  end if
  set save to the itemDelimiter
  set the itemDelimiter to "$"
  set TAGS_TITLES to item 1 of UserData
  set TAGS_DATA to item 2 of UserData
  set TAGS_LIST to value(string(item 3 of UserData))
  set WasScreens to item 4 of UserData
  set NotePadText to item 5 of UserData
  set ScoreByTasksList to value(string(item 6 of UserData))
  set the itemDelimiter to save
  Set_WasInPathTool01(line 1 of WasScreens)
  Set_WasInPathTool02(line 2 of WasScreens)
  Set_WasInPathTool03(line 3 of WasScreens)
  Set_WasInPathTool04(line 4 of WasScreens)
  Set_WasInPathTool05(line 5 of WasScreens)
  Set_WasInPathTool06(line 6 of WasScreens)
  Set_WasInPathTool07(line 7 of WasScreens)
  Set_WasInPathTool08(line 8 of WasScreens)
  Set_WasInPathTool10(line 10 of WasScreens)
  Set_WasInPathTool11(line 11 of WasScreens)
  Set_WasInPathTool12(line 12 of WasScreens)
  Set_WasInPathTool13(line 13 of WasScreens)
end

on DeleteLIST theText
  global IndexList, DeletePointer, HDfilePath, NumOfUsers, IndexPointer
  repeat with i = 1 to the number of chars in theText
    if char i of theText = " " then
      put "_" into char i of theText
    end if
  end repeat
  set theFile to getaProp(IndexList, value("#" & theText))
  if objectp(DeletePointer) then
    DeletePointer(mdispose)
  end if
  set DeletePointer to FileIO(mnew, "read", HDfilePath & theFile & ".txt")
  DeletePointer(mDelete)
  deleteProp(IndexList, value("#" & theText))
end

on SaveIndexFile
  global IndexList, DeletePointer, HDfilePath, NumOfUsers, IndexPointer
  set save to the itemDelimiter
  set the itemDelimiter to "@"
  put field "complete" into item 1 of theInfo
  put IndexList into item 2 of theInfo
  put NumOfUsers into item 3 of theInfo
  set the itemDelimiter to save
  if objectp(IndexPointer) then
    IndexPointer(mdispose)
  end if
  set IndexData to string(theInfo)
  set IndexPointer to FileIO(mnew, "write", HDfilePath & "index.txt")
  IndexPointer(mWriteString, IndexData)
  if objectp(IndexPointer) then
    IndexPointer(mdispose)
  end if
end

on SaveToFile
  global HDfilePath, CDfilePath, PCDEL, FilePointer, CurrentFile
  if objectp(FilePointer) then
    FilePointer(mdispose)
  end if
  set FileData to Get_UserData()
  set FilePointer to FileIO(mnew, "write", HDfilePath & CurrentFile & ".txt")
  FilePointer(mWriteString, FileData)
  if objectp(FilePointer) then
    FilePointer(mdispose)
  end if
end

on Get_UserData
  global HDfilePath, CDfilePath, PCDEL, FilePointer, CurrentFile, TAGS_DATA, TAGS_TITLES, TAGS_LIST, NotePadText, ScoreByTasksList
  set theData to EMPTY
  set save to the itemDelimiter
  set the itemDelimiter to "$"
  put TAGS_TITLES into item 1 of theData
  put TAGS_DATA into item 2 of theData
  put TAGS_LIST into item 3 of theData
  put Get_WasInPathTool01() into line 1 of WasScreens
  put Get_WasInPathTool02() into line 2 of WasScreens
  put Get_WasInPathTool03() into line 3 of WasScreens
  put Get_WasInPathTool04() into line 4 of WasScreens
  put Get_WasInPathTool05() into line 5 of WasScreens
  put Get_WasInPathTool06() into line 6 of WasScreens
  put Get_WasInPathTool07() into line 7 of WasScreens
  put Get_WasInPathTool08() into line 8 of WasScreens
  put Get_WasInPathTool10() into line 10 of WasScreens
  put Get_WasInPathTool11() into line 11 of WasScreens
  put Get_WasInPathTool12() into line 12 of WasScreens
  put Get_WasInPathTool13() into line 13 of WasScreens
  put WasScreens into item 4 of theData
  put NotePadText into item 5 of theData
  put ScoreByTasksList into item 6 of theData
  set the itemDelimiter to save
  return theData
end

on initSpriteNums
  initGeneralScreen()
  initNameStrokeScreen()
  initNameScrollScreen()
  initScrollVars()
  set_CurrLogic(EMPTY)
end

on initGeneralScreen
  SetWhichText(field "Complete")
  set_NewNameSprite(3)
  set_NameListSprite(4)
  set_NextCoverSprite(30)
  Set_NEXTSprite(28)
  set the visible of sprite get_NextCoverSprite() to 1
end

on handleGeneralSPuppets bool
  set the puppet of sprite get_NewNameSprite() to bool
  set the puppet of sprite get_NameListSprite() to bool
end

on initNameStrokeScreen
  set_NewNameCancelSprite(5)
  setAlfaBet()
  setNumOfCharsLimit(12)
  set_NewNameOKSprite(6)
end

on handleNameStrokePuppets bool
  set the puppet of sprite get_NewNameCancelSprite() to bool
  set the puppet of sprite get_NewNameOKSprite() to bool
end

on initNameScrollScreen
  set_NameScrollCancelSprite(7)
  set_NameScrollDeleteSprite(8)
  set_NameScrollOKSprite(9)
end

on handleNameScrollPuppets bool
  set the puppet of sprite get_NameScrollCancelSprite() to bool
  set the puppet of sprite get_NameScrollDeleteSprite() to bool
  set the puppet of sprite get_NameScrollOKSprite() to bool
  set the puppet of sprite getLinePuppetSprite() to bool
  set the puppet of sprite GetSliderSprite() to bool
  puppetSprite(getNameDownArrow(), bool)
  puppetSprite(getNameUpArrow(), bool)
  set the immediate of sprite getThumbSprite() to 1
  set the puppet of sprite getThumbSprite() to bool
end

on set_NewNameSprite int
  global NewNameSprite
  set NewNameSprite to int
end

on get_NewNameSprite
  global NewNameSprite
  return NewNameSprite
end

on set_NameListSprite int
  global NameListSprite
  set NameListSprite to int
end

on get_NameListSprite
  global NameListSprite
  return NameListSprite
end

on set_NewNameCancelSprite int
  global NewNameCancelSprite
  set NewNameCancelSprite to int
end

on get_NewNameCancelSprite
  global NewNameCancelSprite
  return NewNameCancelSprite
end

on set_NewNameOKSprite int
  global NewNameOKSprite
  set NewNameOKSprite to int
end

on get_NewNameOKSprite
  global NewNameOKSprite
  return NewNameOKSprite
end

on set_NameScrollCancelSprite int
  global NameScrollCancelSprite
  set NameScrollCancelSprite to int
end

on get_NameScrollCancelSprite
  global NameScrollCancelSprite
  return NameScrollCancelSprite
end

on set_NameScrollDeleteSprite int
  global NameScrollDeleteSprite
  set NameScrollDeleteSprite to int
end

on get_NameScrollDeleteSprite
  global NameScrollDeleteSprite
  return NameScrollDeleteSprite
end

on set_NameScrollOKSprite int
  global NameScrollOKSprite
  set NameScrollOKSprite to int
end

on get_NameScrollOKSprite
  global NameScrollOKSprite
  return NameScrollOKSprite
end

on set_NextCoverSprite int
  global NextCoverSprite
  set NextCoverSprite to int
end

on get_NextCoverSprite
  global NextCoverSprite
  return NextCoverSprite
end

on SetWhichText str
  global WhichText
  set WhichText to str
end

on GetWhichText
  global WhichText
  return WhichText
end

on EnableBtn theSpriteNum, theCastName
  set the castNum of sprite theSpriteNum to the number of cast theCastName
  if theCastName = "NameUp" then
    Set_ArrowsOn(1, 1)
  else
    if theCastName = "nameDown" then
      Set_ArrowsOn(2, 1)
    end if
  end if
end

on DisableBtn theSpriteNum, theCastName
  if theCastName = "NameUp" then
    Set_ArrowsOn(1, 0)
  else
    if theCastName = "nameDown" then
      Set_ArrowsOn(2, 0)
    end if
  end if
  set the castNum of sprite theSpriteNum to the number of cast theCastName
end

on Set_NEXTSprite int
  global NEXTSprite
  set NEXTSprite to int
end

on get_NEXTSprite
  global NEXTSprite
  return NEXTSprite
end

on Set_ArrowsOn arrowNUm, bool
  global ArrowsOn
  put bool into item arrowNUm of ArrowsOn
end

on get_ArrowsOn arrowNUm
  global ArrowsOn
  return integer(item arrowNUm of ArrowsOn)
end

on DoNothing
end